Unit
LMDCal

Declaration

TLMDOnDateSelEvent = procedure (Sender : TObject; Date : TDateTime) of object;